home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 May / 1986-05.d64 / vampyre hunter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  32KB  |  814 lines
  1. 1 if a=0 then a=1:load "chrout.obj",8,1
  2. 10 rem vampyre hunter v8; 6/11/84
  3. 15 ifpeek(49152)<>18thenprint"[205][204]?":stop
  4. 20 sp=53269:bo=53280:sc=53281:print"[147]":pokebo,2:pokesc,2
  5. 25 deffna(i)=peek(i)+256*peek(i+1):deffnd(i)=int(rnd(1)*i)
  6. 30 i=49152:iz=fna(i):mv=fna(i+2):wk=fna(i+4):bp=fna(i+6):cs=fna(i+8)
  7. 35 mt=fna(i+10):mb=fna(i+12):mr=fna(i+14):ev=fna(i+16)
  8. 40 sysiz:print"[147][150]"tab(13)"[214]ampyre [200]unter"
  9. 45 syscs:sysmt:pokebo,2:pokesc,2
  10. 50 s8$="                                        "
  11. 55 dl$="                                      "
  12. 60 s1$=" ":s4$="    ":readnt,mw,sl,ms,q,x,z,wf,pe$,ar$,dr$,d1$,dn$,dr,tn,ve,no
  13. 65 readso,fo,lf,pl,rs,mc,bc,ne,de,wv,io,sv,ws,al$,bu$,cd$,dy,tt,xs,ys,ls
  14. 70 readbh,rh,dh,ch,th,os,sh,wc,vr,ng,af,nu,vh,se
  15. 75 cd=len(cd$)-x:dimcd$(cd),dr$(dr),tn$(tn),tn(tn),ve$(ve),no$(no),np%(no)
  16. 80 dimnw%(no),ns%(no),nd$(no),sh%(no),ne%(no+x),ms%(ms),so%(so),so$(so)
  17. 85 dimfo%(fo),nu%(fo),fd$(fo),pn$(pl),pd%(pl+x),pp$(pl),ps$(pl),pv%(pl)
  18. 90 dimrd$(rs),bc%(mc+x),bc$(bc),ne$(ne),de$(de),wv%(wv),io%(no),sv%(sv)
  19. 95 dimws%(no),wo$(sl),nd%(sl),nc%(sl),dd%(2,5),cc$(2),cc(2),er$(8),se%(se)
  20. 100 fori=0to2:forj=0to5:readdd%(i,j):next:next
  21. 105 fori=0tocd:readcd$(i):next:fori=0todr:readdr$(i):next:fori=0totn
  22. 110 readtn$(i),tn(i):next:fori=0tove:readve$(i):next:fori=0toms:ms%(i)=-2:next
  23. 115 fori=0tono:readno$(i),np%(i),nw%(i),nd$(i),ns%(i):next
  24. 120 fori=0toso:readso%(i),so$(i):next:fori=0toso:sh%(so%(i))=i+x:next
  25. 125 fori=0tofo:readfo%(i),nu%(i):next
  26. 130 fori=0tofo:readfd$(i):next:fori=0topl:readpn$(i),pp$(i),ps$(i):next
  27. 135 fori=0tors:readrd$(i):next:j=0:fori=0tobc
  28. 140 readbc$(i):ifbc$(i)=z$thenj=j+x:bc%(j)=i:goto140
  29. 145 next:bc%(j+x)=bc+x:j=0:fori=0tone
  30. 150 readne$(i):ifne$(i)=z$thenj=j+x:ne%(j)=i:goto150
  31. 155 next:ne%(j+x)=ne+x:j=0:fori=0tode
  32. 160 readde$(i):ifde$(i)=z$thenj=j+x:pd%(j)=i:goto160
  33. 165 next:pd%(j+x)=de+x:nw%(6)=ns%(6)*2
  34. 170 fori=0towv:readwv%(i):next:fori=0toio:readj:io%(j)=q:next
  35. 175 fori=0tosv:readsv%(i):next:fori=0tows:readn,j:ws%(n)=j:next
  36. 180 fori=0to2:readcc$(i),cc(i):next:fori=0to8:reader$(i):next
  37. 185 i=53248:pokei+23,0:pokei+29,0:pokei+27,0:pokei+28,0:pokei+16,0:pokei,184
  38. 190 pokei+21,0:pokei+1,114:k=65472:fori=0to47:readj:pokei+k,j:next
  39. 195 fori=48to63:pokei+k,0:next:poke53240,255:fori=0tose:readse%(i):next
  40. 200 s2=q:pokeng,0:sysev:print"[147][215]elcome! to [214][193][205][208][217][210][197] [200][213][206][212][197][210]":gosub830
  41. 205 gosub1865:pv%(0)=q:t3=tt:t4=tt
  42. 210 :
  43. 215 print:ificthenpoke214,20:print:printdl$dl$:poke214,20:print
  44. 220 print"? ";:gosub2760:ifnoticthen235
  45. 225 print"[147]":iflnthensysmv
  46. 230 poke214,17:print
  47. 235 ifhv>5thenprint"[201] need some rest.
  48. 240 [139]nu[179]30[167][153]"right$'m hungry.
  49. 245 ifhv>9thengosub575:print"[217]ou died of exhaustion at"t1-t;t$pe$:goto520
  50. 250 ifnu<-10thenprint"[217]ou have starved to death on day"dy"[157].":goto520
  51. 255 ifin$="again"thenin$=j$:print"("j$")
  52. 260 j$[178]in$
  53. 265 [139]zl[178]q[167][153]"lenome again?":[137]215
  54. 270 in$[178]in$[170]s1$:[129]i[178]0[164]sl:wo$(i)[178]pe$:[130]:wn[178]0:j[178]x
  55. 275 [139][202](in$,j,x)[179][177]s1$[167]295
  56. 280 wo$(wn)[178][200]([200](in$,j[171]x)[170]s4$,4):in$[178][202](in$,j[170]x):j[178]0
  57. 285 [129]i[178]1[164][195](ar$)[169]4:[139]wo$(wn)[178][202](ar$,i,4)[167]wo$(wn)[178]pe$:[137]295
  58. 290 [130]:wn[178]wn[170]x
  59. 295 j[178]j[170]x:[139][168]j[177][195](in$)[167]275
  60. 300 nw[178]0
  61. 305 in$[178]wo$(nw):[139]in$[178]pe$[167]215
  62. 310 [141]800:[139][168](vf[177]0[175]np%(vr)[179][177]67[175][168]nt)[167]320
  63. 315 [153]"(NULL)he vampire looks up into the sun and melts away.":[137]505
  64. 320 [129]i[178]1[164][195](dr$)[169]4
  65. 325 [139]in$[178][202](dr$,i,4)[167]v[178]0:[137]350
  66. 330 [130]
  67. 335 nw[178]nw[170]x:[129]i[178]0[164]ve:[129]j[178]1[164][195](ve$(i))[169]4
  68. 340 [139]in$[178][202](ve$(i),j,4)[167]v[178]i:v1[178](j[171]x)[173]4:[137]350
  69. 345 [130]:[130]:[153]er$(0):[137]215
  70. 350 [145]v[170]x[141]1010,1010,1290,1420,1435,1550,1800,2415,2750,1975
  71. 355 [139]v[177]9[167][145]v[171]9[141]2120,2250,2500,2650,2665,2715,535,540,765,770,545
  72. 360 [139]v[177]20[167][145]v[171]20[141]2285,595,605,555,430,475,490,385,780,375
  73. 365 [137]305
  74. 370 :
  75. 375 [153]"load":[137]820
  76. 380 :
  77. 385 [141]1595:[139][168]nc[178]x[176][168]nc%(0)[178]19[176][168]nc%(1)[178]40[167][153]er$(0):[142]
  78. 390 n[178]19:[141]1645:[139][168]nl[178]q[167][153]er$(1)nd$(19)pe$:[142]
  79. 395 [139][168]np%(8)[178]q[167][153]"right$ must have the mallet.":[142]
  80. 400 tx[178]cx:ty[178]cy:tl[178]cl:[141]2775
  81. 405 [139]wh[178]vh[176]nt[167][153]"(NULL)he vampire must be asleep.":[142]
  82. 410 [139][168]wh[178]ch[167][153]er$(2)"coffin here.":[142]
  83. 415 [139]hv[177]5[167][153]"(NULL)ou are too tired to do this deed.":[142]
  84. 420 [153]"(NULL)ou have driven a wooden stake into the vampire.":[137]505
  85. 425 :
  86. 430 in$[178]wo$(nw):nw[178]nw[170]x
  87. 435 [139][168]af[177]0[167][153]"(NULL)here is no fuel.":[142]
  88. 440 n[178]5:[141]1645:[139]nl[178]q[167]460
  89. 445 [139]nl[178]z[167][153]er$(2)nd$(n)" here.":[142]
  90. 450 pr[178]q:[141]1385:[141]1645
  91. 455 [139][168]nl[178]q[167][153]er$(1)nd$(n)pe$:[142]
  92. 460 [139]in$[178]"on  "[167]tt[178]tt[170]3:ln[178]q:[153]nd$(n)" is now on.":[142]
  93. 465 [139]in$[178]"off "[167]tt[178]tt[170]2:ln[178]z:[153]nd$(n)" is now off.":[142]
  94. 470 nw[178]nw[171]x:[153]er$(0):[142]
  95. 475 [141]1595:[139][168]nc[178]0[167][153]er$(0):[142]
  96. 480 [139][168]nc%(0)[178]5[167][153]"(NULL)ou can not light the "nd$(nc%(0))pe$:[142]
  97. 485 in$[178]"on  ":[137]435
  98. 490 [141]1595:[139][168]nc[178]0[176][168]nc%(0)[178]5[167][153]er$(0):[142]
  99. 495 in$[178]"off ":[137]435
  100. 500 :
  101. 505 [141]575:[153]"(NULL)he vampire was killed on day"dy"cmd, at"t1[171]t;t$". ";
  102. 510 [153]"lenongratulations, you are now the champion (NULL)atn(NULL)(NULL)(NULL)(NULL)val left$(NULL)(NULL)(NULL)val(NULL)!"
  103. 515 :
  104. 520 [151]sp,0:[153]"(NULL)lay again? ";:[141]2760:[139][200](in$,1)[178]"y"[167][138]
  105. 525 [153]"load":[128]
  106. 530 :
  107. 535 [153]"(NULL)eeee!!":[142]
  108. 540 [153]"atnghhhh!!!":[142]
  109. 545 [153]"left$ello!":[142]
  110. 550 :
  111. 555 [129]ip[178]0[164]2:[153]cc$(ip);:[141]2760
  112. 560 [139]in$[177]""[175]vi[177][178]0[175]vi[179]16[167][151]cc(ip),vi
  113. 565 [130]:[142]
  114. 570 :
  115. 575 t$[178]"atn":t[178]0:[139]tt[177]719[167]t$[178]"(NULL)":t[178]12
  116. 580 t1[178][181](tt[173]60):t$[178]"cmd:"[170][201]("0"[170][202]([196]([181]((tt[173]60[171]t1)[172]60)),2),2)[170]t$
  117. 585 [139]t1[178]0[167]t1[178]12
  118. 590 [142]
  119. 595 [141]575:[153]"right$t's"t1[171]t;t$" of day"dy"cmd.":[142]
  120. 600 :
  121. 605 [141]1595:[139][168]nc[178]1[167][153]er$(0):[142]
  122. 610 in[178]nc%(z):dn[178]nc%(1):[139][168](in[178]5[175]dn[178]9)[167]635
  123. 615 n[178]dn:[141]1645:[139][168]nl[178]q[167][153]er$(1)nd$(n)pe$:[142]
  124. 620 n[178]in:[141]1645:[139][168]nl[178]q[167][153]er$(1)nd$(n)pe$:[142]
  125. 625 [139]af[177]500[167][153]"(NULL)here is still too much fuel in the "nd$(n)pe$:[142]
  126. 630 af[178]af[170]600:np%(dn)[178][171]2:[153]"(NULL)he lamp is refueled.":[142]
  127. 635 [139][168]io%(in)[167]in[178]nc%(1):dn[178]nc%(0)
  128. 640 n[178]dn:[141]1645:[139][168]nl[178]q[167][153]er$(1)nd$(n)pe$:[142]
  129. 645 n[178]in:[141]1645:[139]nl[178]0[167][153]er$(2)nd$(n)" here.":[142]
  130. 650 tt[178]tt[170]5:[139][168]dn[178]6[167][141]1530:[137]665
  131. 655 [139][168]dn[178]6[167][141]1530:[137]665
  132. 660 n[178]dn:[141]2625
  133. 665 [139][168]ic[167]695
  134. 670 [139]in[178]40[167]685
  135. 675 [153]er$(7)nd$(dn)pe$:[139]dn[178]6[167][142]
  136. 680 dn[178]lo:lo[178]80:[141]1535:lo[178]dn:[142]
  137. 685 [129]i[178]0[164]sv:[139][168]dn[178]sv%(i)[167][130]:[137]675
  138. 690 [137]735
  139. 695 [153]nd$(dn)":given.":[139][168]in[178]2[167]710
  140. 700 [139]dn[178]6[167]df[178]q:[153]"(NULL)he dog is following you now.":[142]
  141. 705 [153]er$(5):[142]
  142. 710 [139][168]in[178]3[167]725
  143. 715 [139]dn[178]6[167][153]"(NULL)hey eat hungrily but stay for more.":dg[178]q:[142]
  144. 720 [153]er$(5):[142]
  145. 725 [139]in[178]38[176]in[178]39[167][153]er$(5):[142]
  146. 730 [129]i[178]0[164]sv:[139][168]dn[178]sv%(i)[167][130]:[153]er$(5):[142]
  147. 735 [139][168](dn[178]11[176]dn[178]14[176]dn[178]15[176]dn[178]18)[167]745
  148. 740 [153]"(NULL)he vampire changes into a bat and flies away.":[137]915
  149. 745 ns%(dn)[178]0:nw%(dn)[178]nw%(dn)[173]3:nd$(dn)[178]"empty "[170]nd$(dn):[139]dn[179][177]13[167]740
  150. 750 [153]"(NULL)he vampire clutches where the holy water hit him ";
  151. 755 [153]"and lunges at you in rage.":vf[178]5[170][165]d(5):[